#inclusion des facettes de l'agent

# Heritage 
inherit OrC Control

# Constructeur de l'objet Or

method OrC constructor { parent } {

	this inherited $parent

   	# creation des facettes de l'agent
	set this(abstraction) ""
   	set this(presentation) ""
   
   	# creation de ces fils
   
   	set this(children) ""


	return

}




